module Main where

sumAll :: (Num a) => [a] -> a
sumAll (x:xs) = x + sumAll xs
sumAll [] = 0

ax = [1,2,3,4]
main = do { print (sumAll ax) }